Sub 수식입력()

    With WorksheetFunction
    
        Range("F6").Value = .Sum(Range("D6:D14"))
    
    End With
    
    Range("I6").Formula = "=AVERAGEIF($C$6:$C$14, H6, $D$6:$D$14)"
    Range("I6").AutoFill Destination:=Range("I6:I10")

    Range("I6:I10").Value = Range("I6:I10").Value

End Sub
